********************************************
*     PROGRAMME RETLW                                                     *
*       PIC 16F88                                                                              *
*    Ce programme permet d'utiliser l'instruction RETLW  *
********************************************

:debut                       ;
MOVLW 255         ; 255 => reg w
MOVWF 32           ; contenu w => @32
MOVLW 1             ; 1 => reg w
CALL tempo      ; appel S/P tempo 
ADDWF 32,w       ; addition w+contenu@32 => w
MOVLW 128         ; 128 => reg w
goto debut             ;
END                       ; Fin du programme

******* SP tempo *********

:tempo    ;
MOVWF PORTB    ; envoi w sur port B
call tempo2            ; appel S/P tempo2
MOVWF 34           ; contenu de w => @34
RETURN    ;

******* SP tempo2 *********

:tempo2    ;
MOVWF PORTA    ; envoi w sur port A
call tempo3                ; appel S/P tempo3
MOVWF 33             ; reg w => @33
RETURN    ;

******* SP tempo3 *********

:tempo3   ;
MOVLW 10             ; 10 => reg w
RETLW 85               ; retour de S/P avec 85 dans w

































































































































